home *** CD-ROM | disk | FTP | other *** search
/ The Amiga Classic Collection / The Amiga Classic Collection - Disc 1.iso / Education / ED92-AmateurRadio3.DMS / ED92-AmateurRadio3.adf / Calculations / DateDay (.txt) < prev    next >
AmigaBASIC Source Code  |  1989-08-28  |  1KB  |  32 lines
  1. ' DateDay
  2. ' Program to produce the Date from the Day Number
  3. ' From J Miller  Oscar 56
  4. ' Converted for the Amiga by A C Hewat, 17th March 1989
  5. ' Version  1.00   17/03/89
  6.  
  7.  
  8. ' Takes the day number and produces the date in the form of year, month
  9. ' and day of month.
  10.  
  11. ' do = -722528           ' For AMSAT day number        »
  12.   do = -428              ' For GENERAL day number      »»  Choose only one
  13. ' do = 1720982           ' For JULIAN day at Noon      »
  14.  
  15. ' DayNumber from DayDate or change and
  16.  INPUT "DayNumber ";DayNumber
  17.  
  18. d = DayNumber - do
  19. dw = (d+5) - 7*INT((d+5)/7)
  20. 'd  = d+INT(INT((d+36387&)/36524.25)*3/4)-15   'Omit for dates between 1900 Mar 01 and 2100 Feb 28
  21. year = INT((d-122.1)/365.25)
  22. d = d-INT(year*365.25)
  23. month = INT(d/30.61)
  24. d = d-INT(month*30.6)
  25. month = month-1
  26. IF month > 12 THEN month = month-12 : year = year + 1
  27. day$ = MID$("SunMonTueWedThuFriSatSun",3*dw+1,3)
  28. month$ = MID$("JanFebMarAprMayJunJulAugSepOctNovDec",3*month-2,3)
  29.  
  30. PRINT dw,d,month,year,day$;" ";d;" ";month$;year
  31.  
  32.